home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / editdialer.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  6.2 KB  |  215 lines
  1. <html>
  2. <head>
  3. <script language="JavaScript">
  4. <!-- 
  5.  
  6. if (document.images) {
  7.  
  8.   // Preload rollover images
  9.   nav1a = new Image(78,18);
  10.   nav1a.src = "/images/editLocalAddresses_b.jpg";
  11.   nav2a = new Image(78,18);
  12.   nav2a.src = "/images/help_b.jpg";
  13.  
  14.   // Preload rolloff images
  15.   nav1 = new Image(78,18);
  16.   nav1.src = "/images/editLocalAddresses_g.jpg";
  17.   nav2 = new Image(78,18);
  18.   nav2.src = "/images/help_g.jpg";
  19.  
  20. }
  21.  
  22. // function for rollover
  23. function msover(imgName) {
  24.   if (document.images[imgName]) {
  25.     document.images[imgName].src = eval(imgName + "a.src");
  26.   }
  27. }
  28.  
  29. // function for rollout
  30. function msout(imgName) {
  31.   if (document.images[imgName]) {
  32.     document.images [imgName].src = eval(imgName + ".src");
  33.   }
  34. }
  35.  
  36. // -->
  37. </script>
  38. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  39. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  40. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  41. <title>Empty</title>
  42. </head>
  43.  
  44. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  45. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  46.   <tr valign=top>
  47.     <td width="100%" valign=top align=right><a
  48.     href="LocalAddresses.agp?Action=Show" onMouseOver="msover('nav1')" onMouseOut="msout('nav1')"><img
  49.     src="/images/editLocalAddresses_g.jpg" width="220" height="24" alt="Edit local addresses" name=nav1 border=0></a><a
  50.     href="hlpServices.htm" onMouseOver="msover('nav2')" onMouseOut="msout('nav2')"><img
  51.     src="/images/help_g.jpg" width="129" height="24" name=nav2 border=0></a>
  52.     </td>
  53.   </tr>
  54. </table>
  55. <%
  56.     if Request.ReqParam("action") = "Commit" Then
  57.         ' Process the DNS settings
  58.         if Request.ReqParam("Enabled") <> "" then
  59.             Dialer.Enabled = True
  60.         else
  61.             Dialer.Enabled = False
  62.         end if
  63.         if Request.ReqParam("AutoConnect") <> "" then
  64.             Dialer.AutoConnect = True
  65.         else
  66.             Dialer.AutoConnect = False
  67.         end if
  68.         if Request.ReqParam("AutoDisconnect") <> "" then
  69.             Dialer.AutoDisconnect = True
  70.         else
  71.             Dialer.AutoDisconnect = False
  72.         end if
  73.         Dialer.ConnectRetry = Request.ReqParam("ConnectRetry")
  74.         Dialer.ConnectionTimeout = Request.ReqParam("ConnectionTimeout")
  75.         if Request.ReqParam("TakeoverRASSessions") <> "" then
  76.             Dialer.TakeoverRASSessions = True
  77.         else
  78.             Dialer.TakeoverRASSessions = False
  79.         end if
  80.         Dialer.RASAccount = Request.ReqParam("RASAccount")
  81.         Dialer.RASUsername = Request.ReqParam("RASUsername")
  82.         Dialer.RASPassword = Request.ReqParam("RASPassword")
  83.  
  84.         On Error Resume Next
  85.         Dialer.Commit
  86.         If Not Err.Number = 0 Then 
  87.             ErrLine = Err.Description
  88.         else
  89.             Response.Redirect("hlpServices.htm")
  90.         End If
  91.     End If
  92. %>
  93.     <p><big><strong><font face="Arial">Edit the Dialer service</font></strong></big></p>
  94. <%
  95.     If Not Len(ErrLine) = 0 Then
  96.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  97.     End If
  98. %>
  99.  
  100. <form method="POST" action= "/services/editdialer.agp">
  101.     <div align="center"><center>
  102.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  103.     <tr>
  104.         <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  105.             Option
  106.         </font></strong></td>
  107.         <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  108.             Value
  109.         </font></strong></td>
  110.     </tr>
  111.     <tr>
  112.         <td width="50%"><strong><font face="Arial">
  113.             RAS enabled
  114.         </font></strong></td>
  115.         <td width="250">
  116.             <input type="checkbox" name="Enabled" value="ON" <% if Dialer.Enabled then Response.Write("checked") end if%>>
  117.         </td>        
  118.     </tr>
  119.     <tr>
  120.         <td width="50%"><strong><font face="Arial">
  121.             Auto connect
  122.         </font></strong></td>
  123.         <td width="50%">
  124.             <input type="checkbox" name="AutoConnect" value="ON" <% if Dialer.AutoConnect then Response.Write("checked") end if%>>
  125.         </td>        
  126.     </tr>
  127.     <tr>
  128.         <td width="50%"><strong><font face="Arial">
  129.             Auto disconnect
  130.         </font></strong></td>
  131.         <td width="50%">
  132.             <input type="checkbox" name="AutoDisconnect" value="ON" <% if Dialer.AutoDisconnect then Response.Write("checked") end if%>>
  133.         </td>        
  134.     </tr>
  135.     <tr>
  136.         <td width="50%"><strong><font face="Arial">
  137.             Connect retry
  138.         </font></strong></td>
  139.         <td width="50%">
  140.             <input type="text" size="9" maxlength="9" name="ConnectRetry" value="<%Response.Write(Dialer.ConnectRetry)%>">
  141.         </td>        
  142.     </tr>
  143.     <tr>
  144.         <td width="50%"><strong><font face="Arial">
  145.             Connection timeout
  146.         </font></strong></td>
  147.         <td width="50%">
  148.             <input type="text" size="9" maxlength="9" name="ConnectionTimeout" value="<%Response.Write(Dialer.ConnectionTimeout)%>">  minute(s)
  149.         </td>        
  150.     </tr>
  151.     <tr>
  152.         <td width="50%"><strong><font face="Arial">
  153.             Takeover RAS sessions
  154.         </font></strong></td>
  155.         <td width="50%">
  156.             <input type="checkbox" name="TakeoverRASSessions" value="ON" <% if Dialer.TakeoverRASSessions then Response.Write("checked") end if%>>
  157.         </td>
  158.     </tr>
  159.     <tr>
  160.         <td width="50%"><strong><font face="Arial">
  161.             RAS account
  162.         </font></strong></td>
  163.         <td width="50%">
  164.             <%
  165.                 On Error Resume Next
  166.                 curAcc = Dialer.RASAccount
  167.                 nr = Dialer.CountPhoneEntries
  168.                 If Err.Number = 0 Then
  169.             %>
  170.             <select name="RASAccount" size="1">
  171.                 <%
  172.                     for i = 1 to nr
  173.                         acc = Dialer.PhoneEntry(i)
  174.                 %>
  175.                         <option <% if curAcc=acc then Response.Write("selected") end if %> value="<%Response.Write(acc)%>"><%Response.Write(acc)%></option>
  176.                 <%
  177.                     next
  178.                 Else
  179.                     ErrLine = Err.Description
  180.                     Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  181.                 End if
  182.                 %>
  183.             </select>
  184.        </td>        
  185.     </tr>
  186.     <tr>
  187.         <td width="50%"><strong><font face="Arial">
  188.             RAS username
  189.         </font></strong></td>
  190.         <td width="50%">
  191.             <input type="text" size="42" name="RASUsername" value="<%Response.Write(Dialer.RASUsername)%>">
  192.         </td>        
  193.     </tr>
  194.     <tr>
  195.         <td width="50%"><strong><font face="Arial">
  196.             RAS pasword
  197.         </font></strong></td>
  198.         <td width="50%">
  199.             <input type="password" size="42" name="RASPassword" value="<%Response.Write(Dialer.RASPassword)%>">
  200.         </td>        
  201.     </tr>
  202.     </table></center></div>
  203. <br>
  204. <%
  205.     If Err.Number = 0 Then
  206. %>
  207.         <p><input type="submit" name="action" value="Commit"></p>
  208. <%
  209.     end if
  210. %>
  211. </form>
  212. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  213. </body>
  214. </html>
  215.